



100 REM * PUBLIC DOMAIN SOFTWARE *
110 REM THIS MOD TO THE COMM PROGRAM ON THE DOS DISK WILL AUTOMATICALLY
120 REM DOWNLOAD PROGRMAS FROM FORUM-80 OR CONNECTION-80 BBS AND SAVE THE
130 REM FILE TO DRIVE B AS "DWNLD1.TXT". ADDITIONAL FILES WILL HAVE NUMBERS
140 REM 2,3,...ETC.  IF YOU WANT TO ADD AUTO LOGON THE ADD THE FOLLOWING:
150 REM 365 IF MID$(A$,I,1)=CHR$(5) THEN PRINT#1,AUTOLOGON$
160 REM (THE AUTOLOGON IS IN THE FORM:FIRSTNAME;LASTNAME;CITY;STATE)
366 IF MID$(A$I,1)=CHR$(18) THEN GOTO 22000
22000 REM -DOWNLOAD-
22010 FILENUMBER=FILENUMBER+1:X$=STR$(FILENUMBER):X$=RIGHT$(X$,LEN(X$)-1)
22020 FILENAME$="B:DWNLD"+X$+".TXT"
22030 OPEN FILENAME$ FOR OUTPUT AS #4
22040 LINE INPUT #1,A$
22050 FOR I=1 TO LEN(A$)
22060 IF MID$(A$,I,1)=CHR$(20) THEN A$=LEFT$(A$,I-1):PRINT #4,A$: CLOSE #4: GOTO 290
22070 NEXT I
22080 PRINT #4,A$:PRINT #2,A$
22090 GOTO 22040
